Итак, мы посмотрим как можно организовать учет аффинажа практически в полуавтоматическом режим. Итак, мы периодически проплачиваем за аффинаж. Завод в ответ нам выставляет расшифровку о том, сколько он возьмет за каждую партию золота. Партий за месяц может быть много. Для учета сделаем регистр.

Для заполнения регистра сделаем документ в котором будет заполнять расшифровку, кому и за что.

Теперь мы можем в любой момент получить отчет по измерениям, то есть выбрать на какую сумму мы покрыли расходы своих клиентов. Как писать данный код мы уже обсуждали.

Процедура Сформировать() 
	Перем Пр;
	Пр=0;
      	Т=СоздатьОбъект("Таблица");
    	Т.ВывестиСекцию("Секция_1"); 
		Рег1 = СоздатьОбъект("Регистр.УслугиАфинажа");
		    	 
		 Если Кому.Выбран()=1 Тогда  
 			Рег1.УстановитьФильтр(Кому);
		 КонецЕсли;
		 		
		 Рег1.ВыбратьДвижения(ДатаНач,ДатаКон);
		 
		  Пока Рег1.ПолучитьДвижение() > 0 Цикл
		  	Т.ВывестиСекцию("Секция_2");
		  	Пр=Пр+Рег1.Сумма;
		  КонецЦикла;  
		Т.ВывестиСекцию("Секция_3");  
    	Т.ТолькоПросмотр(1);
    	Т.Показать();
КонецПроцедуры

Вроде все нормально только в счет фактуру сумму нужно в ручную заносить из отчета, не порядок.